home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / m / magazin / straight.2 / basic / p_q / polyfill.lst < prev    next >
Encoding:
File List  |  1996-09-18  |  404 b   |  23 lines
  1. PRINT " POLYFILL Beispiel " ! 1/92"
  2. '
  3. DIM x(10),y(10)
  4. yt%=MIN(2,3-XBIOS(4))
  5. GRAPHMODE 3
  6. DO UNTIL MOUSEK OR LEN(INKEY$)
  7.   FOR i=0 TO 9
  8.     x(i)=RANDOM(100)+56*i
  9.     y(i)=RANDOM(280/yt%)+40/yt%
  10.   NEXT i
  11.   x(i)=x(0)
  12.   y(i)=y(0)
  13.   aa=INT(RND*5)+1
  14.   bb=INT(RND*24)
  15.   cc=RANDOM(5)+1
  16.   DEFMARK ,aa,80
  17.   DEFFILL 1,2,bb
  18.   DEFLINE cc,1,2,2
  19.   POLYFILL 9,x(),y()
  20.   POLYFILL 9,x(),y()
  21. LOOP
  22. EDIT
  23.